﻿Public Class frmTiepNhanNha

    Private Sub frmTiepNhanNha_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dtNgayDang.Value = Date.Now

        Dim listLoaiNha As New List(Of LoaiNhaDTO)
        listLoaiNha = LoaiNhaBUS.GetAll()
        cbxLoaiNha.DataSource = listLoaiNha
        cbxLoaiNha.ValueMember = "iMaLoaiNha"
        cbxLoaiNha.DisplayMember = "strTenLoaiNha"

        Dim listQuan As New List(Of QuanDTO)
        listQuan = QuanBUS.GetAll()
        cbxQuan.DataSource = listQuan
        cbxQuan.ValueMember = "iMaQuan"
        cbxQuan.DisplayMember = "strTenQuan"

        Dim dt As DataTable = New DataTable()
        dt = NguoiDangBUS.LayDSHoTen()
        cbxNguoidang.DataSource = dt
        'cbxLoaiNha.ValueMember = "MaNguoiDang"
        cbxNguoidang.DisplayMember = "MaNguoiDang"
    End Sub

    Private Sub btnTiepNhanNha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTiepNhanNha.Click
        If Not NhaBUS.KiemTraDayDu(txtSoNha.Text, txtDuong.Text, txtGia.Text, txtDienTich.Text, txtTieuDe.Text) Then
            Dim iSlNhaTaiQuan As Integer, iSLNhaToiDaMoiQuan As Integer

            iSlNhaTaiQuan = NhaBUS.LaySLNhaTaiQuan(cbxQuan.SelectedValue)
            iSLNhaToiDaMoiQuan = ThamSoBUS.LaySLNhaToiDa()
            If iSlNhaTaiQuan < iSLNhaToiDaMoiQuan Then
                Dim nha As NhaDTO = New NhaDTO()
                Dim manha As String = ""
                Dim macuoi As String = NhaBUS.LayMa_Nha_Cuoi()
                manha = NhaBUS.TinhMaNha(macuoi)

                nha.strMaNha = manha
                nha.strSoNha = txtSoNha.Text
                nha.strDuong = txtDuong.Text
                nha.iDienTich = txtDienTich.Text
                nha.iGia = txtGia.Text
                nha.isTinhTrang = False
                nha.isTamXoa = False
                nha.iMaLoaiNha = cbxLoaiNha.SelectedValue
                nha.iMaQuan = cbxQuan.SelectedValue
                nha.strMaNguoiDang = cbxNguoidang.Text
                nha.strTieuDe = txtTieuDe.Text
                nha.dNgayDang = dtNgayDang.Text

                NhaBUS.Insert(nha)

                MessageBox.Show("Bạn đã thêm Thành công một Nhà", "THÔNG BÁO")
            Else
                MessageBox.Show("Xin lỗi!!Quận mà bạn chọn đã đủ số lượng nhà quy định. Vui lòng chọn Quận khác!", "THÔNG BÁO")
            End If

        Else
            MessageBox.Show("Bạn Chưa nhập đủ các thông tin bắt buộc!", "THÔNG BÁO")
        End If
    End Sub

    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        Me.Close()
        Form1.maintab.Tabs.RemoveAt(Form1.maintab.SelectedTabIndex)
        If Form1.maintab.Tabs.Count = 0 Then
            Form1.maintab.Visible = False
        End If
    End Sub
End Class